sub vg5000refresh():
  poke $47FB,1
  asm
    halt
    end asm
  end sub
